#!/usr/bin/perl
#
#
while($line=<STDIN>) {
	chomp($line);
	@f = split(/\s+/,$line);

	if(@f<2) {
		next;
	}

	($word,$pos,$root) = split(/_/,$f[0]);
	$gnp = "";
	$tense = "";
	for($i=1;$i<@f;$i++) {
		if($f[$i]=~/^gnp:(.*)/) {
			$gnp = $1;
		}
		elsif($f[$i]=~/^tense:([^_]*)/) {
			$tense = $1;
		}
	}

	if($tense ne "0" && $tense ne "NULL") {
		$root.=$tense;
	}

	if($word ne $root) {
		print $root."\t".$gnp."\t".$word."\n";
	}
	
}

